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COPYRIGHT (c) 1978, 1980. 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd a 
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EXECUTIVE, 1/0 CONTROL ROUTINES 

; ABSTRACT: 

: 1/0 SUBROUTINES WHICH CONTAIN PROCESSOR DEPENDENCIES. 
AUTHOR: 

N. KRONENBERG, JANUARY 12, 1979. 

; MODIFIED BY: 
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0 3 : VO3-010 TCM0004 Tru udy C 
SF : Added 11/790-specific path to [OCSPURGDATAP™ 
75: vo9 TCM0003 Trudy C. Matthews 9-Nov-1982 
6 : Added a .TITLE statenent for L10SUB790. 
£8 : vo8 TCMO002 Trudy C. Mathews 29-Jul-1981 
00 19 Changed all "'722"'s to "730''s. 
0 1: v07 TCM0001 dy ¢ Matthews 28-Feb-1980 
p ¢ 3 Changed LOCSPURGDATA for NEBULA so that it L 
9 ¢ ; are Unibus errors reported. 
0900 6: v06 PK0002 N. KRONENBERG 4=DEC-1979 
44 Hi : REPLACED LOCSPURGDATAP FOR NEBULA 
0000 «89: v05 NPKO001 N. KRONENBERG 23-AUG-1979 
44 + 3 CORRECTED 11/750 CHECK FOR PURGE DONE. 
0000 32 : v04 TCM0001 Trudy C. Matthews 3-Jul-1979 
0000 «(98 : Modified IOCSPURGDATAP for NEBULA 
0000 94: 
0000 95 :-- 
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L10SUB780 - LOADABLE 1/0 SUBROUTINES 16-SEP-1984 00:43: AX/VMS Macro V04-00 Page 
yoo 5000 PURGE DATAPATH met $0: 3568 EOYSLOA. SREJLIOSUB OMAR: 1 . G 
09 135 ~SBTTL PURGE DATAPATH 
8 133 3 IOCSPURGDATAP = PURGE DATAPATH 
09 141 ; This routine purges the caller's buffered detapath, and clears any 
106 ; datapath errors. if there was a datapath error, this fact is 
3 145 ; returned to the caller. 
000 144; 
4 145 ; INPUTS: 
0 146 : 
00 1 3 R5 = UCB address 
9000 149 ; ouTPuTs: 
44 150 ; 
000 191 3 RO-R3 altered 
0000 13 3 Other registers preserved 
0000 153; RO = Low bit clear/set if transmission error/success 
0000 154; Ri = DPR contents after purge (for register dump by caller) 
0000 155 ; Re = address of start of adapter map registers (for reg dump by caller) 
0000 156; R3 = CRB address 
0000 157 ;- 
444 158 
00000000 159 -PSECT WIONONPAGED 
0000 160 
0000 161 -ENABL LSB 
0000 196 
0000 163 IOCSPURGDATAP:: : 
., 10 BB 0000 165 PUSHR #*M<R4> ; Save register 
53 $f AS DO 0002 166 MOVL UCBS$L_CRB(RS) ,R3 >; Get CRB address 
52 8B3 00 Bpne 19 MOVL ACRBSC_INTD+VECSL_ADP(R35,R2 ; Get start of adapter register space 
00 EF QOOA 169 EXTZV  #VECSV_DATAPATH,- ; Extract datapath # 
05 000c 170 #VECS$S_DATAPATH,-=- 3 from 
51 _37_A3 0000 171 CRBSL_INTD#VECSE DATAPATH(R3) ,R1 
54 40 A241 E oo 176 MOVAL UBAS$L-DPR(R2)CR1J7,R4 ; Get address of DPR 
“a oi 8 0015 17 ASHL #UBAST_DPR_BNE,#1,(R4) ; Purge datapath 
51 64 D0 0019 174 MOVL 4),R ; Get DPR contents 
08 51 +1E €1 ooi¢ 175 BBC #UBASV_DPR_XMTER.R1,20$ : Branch if no error 
64 01 1€ 78 0020 176 ASHL  $#UBASVIDPRIXMTER,#1,(R4); Clear error in DPR 
50 04 ba5¢ 177 CLRL ; Set to return transfer error 
03 11 0026 178 BRB 30$ ; Join common code 
50 01 9A 0028 179 itd MOVZBL #1,RO0 ; Set to return transfer success 
52 0800 C2 DE 00 H os MOVAL UBASL_MAP(R2),R2 ; Return addr of ist map register 
10 BA 6 183 POPR #*M<R4> ; Restore register 
05 1 RSB ; Return 
0 H 
0 186 
3 14 
63 
0 97 
0 98 -OSAslL LSB 
0 99 
0 00 END 
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PRS"SID-TYPUV1 
UBAS' 


UB 
UBA$V_DPR_BNE 
UBASV_DPR_XMTER 


UCBSL 
VECS8- DATAPATH 


VECS$S_DATAPATH 
VECSV_DATAPATH 
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PSECT name 


ABS. 00000000 ; 


NOPIC USR as te NOEXE NORD NOWRT NOVEC BYTE 


Initialization 
5 processing 


Synbol table sort 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


9 bytes ( 
There were 50 


00000033 


Page faults 


ah 


Ths working set Limit was 1350 pages. 
428 7 pages) of virtual memory were used to buffer the intermediate 
pages of symbol table , ace al — d to hold 7 
source lines were read in Pass 1 
17 pages of virtual memory were used to dotine’ 16 macros. 


CON 
NOPIC USR C 
NOPIC USR C 
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LCL 
tee NOSHR EXE RD WRT NOVEC BYTE 


ON 
ON REL NOSHR EXE RD WRT NOVEC BYTE 
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CPU Time Elapsed Time 
0:00:00.06 00: 
09:00:00. 00: 
00:00:04.9 00: 
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code. 
3 non-local ag local symbols. 


+ producin object records in Pass 


ref, 


L 
V 


de 


L10$ ye7e0 
VAX=-11 Macro Run Statistics 


Macro Library name 


Rtiittantt $ SYS.OBJJLIB pte 1 
SDUAZB: CSYSLIBISTAR -MLB;2 
Torace (all Libraries) 


864 GETS were required to define 13 macros. 
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! Macro Library statistics ! 


terete nen ee meer eann encore we = % 


Macros defined 


There were no errors, warnings or information messages. 
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